'----------------------------------------------
' Name: Ali Karbassi & Mike Raasch
' Date: April 10, 2007
' Description: Project 6
'              Form frmStart
'----------------------------------------------
Public Class frmStart

   ''' <summary>
   ''' Clears the question list and gives the user a new quiz.
   ''' </summary>
   ''' <param name="sender"></param>
   ''' <param name="e"></param>
   ''' <remarks></remarks>
   Private Sub btnCreate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
               Handles btnCreate.Click

      questions.Clear()

      Me.Hide()
      frmCreate.Dispose()
      frmCreate.Show()

   End Sub

   ''' <summary>
   ''' If a quiz exists, the quiz will not be cleared and the user can edit the quiz. The first question of 
   ''' the quiz should be shown on the form.
   ''' </summary>
   ''' <param name="sender"></param>
   ''' <param name="e"></param>
   ''' <remarks></remarks>
   Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click

      frmCreate.setScrollButtons()
      Me.Hide()
      frmCreate.Show()
      frmCreate.editQuiz()

   End Sub

   ''' <summary>
   ''' Shows frmQuiz. If a quiz exists, then all questions of the quiz are displayed on the form.
   ''' </summary>
   ''' <param name="sender"></param>
   ''' <param name="e"></param>
   ''' <remarks></remarks>
   Private Sub btnTake_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTake.Click

      Me.Hide()
      frmQuiz.showList()
      frmQuiz.Show()

   End Sub

   ''' <summary>
   ''' Terminates the program.
   ''' </summary>
   ''' <param name="sender"></param>
   ''' <param name="e"></param>
   ''' <remarks></remarks>
   Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click

      ' Exit the application
      Application.Exit()

      ' Saveguarding the program. Making sure it ended.
      End

   End Sub

End Class